home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / char assassin-64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  26 lines
  1. 10 D=40:F=54272:G=1:H=32:DIMA%(39):FORA=1TO10:READC%(A),S%(A):NEXT:A$="[144]"
  2. 20 DATA149,116,150,161,151,184,159,190,153,163,154,181,28,182,129,183,30,163
  3. 30 DATA31,170:POKE53265,23:POKE53280,6:F1=54273:V1=54276:K=150:L=2
  4. 40 FORA=54272TO54295:POKEA,0:NEXT:POKE54277,23:POKE54296,15:POKE54278,241
  5. 50 FORA=1TO40:A$=A$+CHR$(C%(INT(RND(1)*10)+1))+CHR$(S%(INT(RND(1)*10)+1))
  6. 60 NEXT:POKE53281,15:PRINT"[147]"SPC(9)"CHARACTER ASSASSINATION"
  7. 70 PRINT"ENTER SPEED 0-9 (9 IS THE FASTEST)":POKE198,0
  8. 80 GETB$:IFB$<"0"ORB$>"9"THEN80
  9. 90 S=28-3*VAL(B$):PRINT"[147]"SPC(15)"SCORE[146] 0"
  10. 100 FOR A=1TO22:PRINT:NEXT:PRINTA$;
  11. 110 FL=0:FORA=1104TO1143:POKE649,1:SS=39:IFA%(A-1104)=0THEN170
  12. 120 NEXTA:POKE198,0:IFFLTHEN110
  13. 130 PRINT"[146]"SPC(15)"GAME OVER":PRINT""SPC(11)"PLAY AGAIN? (Y/N)"
  14. 140 GETA$:IFA$="Y"THENPRINTSPC(17)"[144]OK":RUN
  15. 150 IFA$="N"THENPOKE828,0:SYS828
  16. 160 GOTO140
  17. 170 FL=1:R1=RND(1):R2=(-(R1<.5)*(RND(1)*9+48))+(-(R1>=.5)*(RND(1)*26+1))
  18. 180 POKEV1,33:R$=CHR$(R2-(R2<30)*64):C=A+840:FORB=ATOCSTEPD:POKEF1,K-L*SS
  19. 190 SS=SS-1:GETA$:IFA$<>""THENPOKE649,0:IFA$=R$THEN220
  20. 200 POKEB-D,H:POKEB,R2:POKEB+F,J
  21. 210 FORTD=GTOS:NEXTTD:NEXTB:Q=1:GOSUB230:POKEB-D,H:A%(A-1104)=1:NEXTA:GOTO110
  22. 220 Q=0:GOSUB230:POKEB-D,H:SC=SC+SS:PRINT"[146]"SPC(20)SC:NEXTA:GOTO110
  23. 230 POKEV1,129:Z=2:POKEB-D+F,2:FORT=1TO20
  24. 240 POKEF1,Z:POKE53270,200-7*(Q=1):POKEB-D,42-4*(PEEK(B-D)=42)
  25. 250 Z=Z-(Q=0)*2:POKE53270,200:NEXT:POKEV1,128:RETURN
  26.